COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE PUPTST
C00004 ENDMK
C⊗;
TITLE PUPTST

PUPTST:	RESET
	SETZM ASK
	OUTSTR [ASCIZ/DO YOU WANT IT TO ASK AFTER EACH PUP?/]
	INCHRW
	CAIE "Y"
	 CAIN "y"
	  SETOM ASK
	CLRBFI
	INIT 17
	 SIXBIT/PUP/
	 0
	 JRST 4,.
	LOOKUP [400			; LCL SKT
		400			; FRN SKT
		302]			; FRN ADR (US)
	 JRST 4,.
PUPTS1:	OUTSTR [ASCIZ/
SENDING PUP.../]
	OUT PUPMSG
	 CAIA
	  JRST 4,.
	OUTSTR [ASCIZ/READING PUP.../]
	IN PUPMSI
	 CAIA
	  JRST 4,.
	OUTSTR [ASCIZ/PUP READ IN OK.
/]
	SKIPN ASK
	 JRST PUPTS1
	OUTSTR [ASCIZ/
DO ANOTHER?/]
	INCHRW
	CAIE "Y"
	 CAIN "y"
	  JRST PUPTS1
	EXIT 1,

ASK:	BLOCK 1

;Pup length is given in 8-bit bytes
PUPMSG:	0				;fill in byte(8)dest,source(16)1000
	BYTE (16) <=22>,0		;BYTE(16)PUPLENGTH(8)TCTL,PUPTYPE
	0				;byte(16)pupident1,pupident2
	0				;byte(8)destnet,desthost(16)destsoc1
	0				;byte(16)destsock2(8)srcnet,srchost
	0				;byte(16)srcsoc1,srcsoc2
	byte(16)177777			;ignore checksum

PUPMSI:	BLOCK =150

END PUPTST